home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1996 June / macformat-038.iso / Demos / Interactive Wave / _DATAS / SHARED.Dxr / 00980.ls < prev    next >
Encoding:
Text File  |  1995-08-06  |  1.8 KB  |  104 lines
  1. on ActiveScrSaver
  2.   global DcScrSaver
  3.   set DcScrSaver to "GestLanceScrSaver"
  4.   resetComptScrSaver()
  5. end
  6.  
  7. on AnnuleScrSaver
  8.   global DcScrSaver
  9.   set DcScrSaver to "Nothing"
  10. end
  11.  
  12. on GestScrSaver
  13.   global DcScrSaver
  14.   do(DcScrSaver)
  15. end
  16.  
  17. on GestLanceScrSaver
  18.   global listScrSaver, DcDemo
  19.   if the lastEvent < 10000 then
  20.     exit
  21.   end if
  22.   if (the ticks - getAt(listScrSaver, 1)) < 10000 then
  23.     exit
  24.   end if
  25.   if DcDemo then
  26.     exit
  27.   end if
  28.   PlayClick()
  29.   BoutAbonnement()
  30. end
  31.  
  32. on resetComptScrSaver
  33.   global listScrSaver
  34.   setAt(listScrSaver, 1, the ticks)
  35. end
  36.  
  37. on ResetScrSaver
  38.   global listScrSaver
  39.   set listScrSaver to list(0, 0, 0, 0, 0)
  40.   AnnuleScrSaver()
  41. end
  42.  
  43. on BoutAbonnement
  44.   global MemoAbon, MemoNavPuce
  45.   PlayClick()
  46.   InitMemoNav()
  47.   set MemoAbon to MemoNavPuce
  48.   GoMovie(":ABON")
  49. end
  50.  
  51. on RetourAbonnement
  52.   global MemoAbon
  53.   set AccuA to ":" & word 2 of MemoAbon
  54.   set AccuB to word 3 of MemoAbon
  55.   GoMovieRepere(AccuA, AccuB)
  56. end
  57.  
  58. on InitMemoNav
  59.   global NameExt
  60.   if the movieName = "NAVIG" then
  61.     SetMemoNavPuce("NAVIG # NAVIG #")
  62.   end if
  63. end
  64.  
  65. on InitPubCom
  66.   ActiveSkipSpace("Nothing  Nothing  RetourPub")
  67. end
  68.  
  69. on SkipPub
  70.   RetourPub()
  71. end
  72.  
  73. on RetourPub
  74.   global TypeMag, TypeBoutique, MemoPub
  75.   if (TypeMag = 0) and (TypeBoutique = 0) then
  76.     quit()
  77.   end if
  78.   set AccuA to ":" & word 2 of MemoPub
  79.   set AccuB to word 3 of MemoPub
  80.   Cson()
  81.   GoMovieRepere(AccuA, AccuB)
  82. end
  83.  
  84. on GoPubRepere NomFichier, RepereCible
  85.   global MemoPub, MemoNavPuce
  86.   set MemoPub to MemoNavPuce
  87.   GoMovieRepere(NomFichier, RepereCible)
  88. end
  89.  
  90. on BoutBoutique
  91.   global MemoBoutique, MemoNavPuce
  92.   PlayClick()
  93.   InitMemoNav()
  94.   set MemoBoutique to MemoNavPuce
  95.   GoMovie(":LABOU")
  96. end
  97.  
  98. on RetourBoutique
  99.   global MemoBoutique
  100.   set AccuA to ":" & word 2 of MemoBoutique
  101.   set AccuB to word 3 of MemoBoutique
  102.   GoMovieRepere(AccuA, AccuB)
  103. end
  104.